home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / util / cdity / AHelp.lha / ahelp / Install < prev    next >
Encoding:
Text File  |  1997-11-05  |  1.6 KB  |  86 lines
  1. ;
  2. ; AHelp installer Script - by Software Failure/Airsoft
  3. ;
  4. ; if there are any problems, email me: softwarefailure@dame.de
  5. ;
  6.  
  7. (message (cat "\n\nAHelp V1.0 \n\n(c) 1997 by Andreas Falkenhahn\n\n\n"
  8.               "This script installs AHelp and the prefs\n"
  9.               "program to your harddisk and makes it ready\n"
  10.               "to use."
  11.          )
  12. )
  13.  
  14. (welcome)
  15. (set #whereinstall "Where shall AHelp be installed?")
  16. (set #whereinstall1 "Where shall AHelp Prefs be installed?") 
  17. (set #whereinstall2 "Where shall the AHelp documentation be installed?") 
  18.  
  19. (set #whereinstall_help "No help available")
  20.  
  21. (set desti
  22.     (askdir
  23.         (prompt #whereinstall)
  24.         (help "Select drawer of your choice. WBStartup is recommend")
  25.         (default "Sys:WBStartup")
  26.     )
  27. )
  28.  
  29. (working "\n\nPlease wait...")
  30.  
  31. (copyfiles
  32.    (source "WBStartup/AHelp")
  33.    (dest desti)
  34.    (nogauge)
  35.    (infos)
  36. )
  37.  
  38. (set dest1
  39.      (askdir
  40.             (prompt #whereinstall1)
  41.             (help "Select destination for AHelp Prefs")
  42.             (default "Sys:Prefs")
  43.      )
  44. )
  45.  
  46. (working "\n\nPlease wait...")
  47.  
  48. (copyfiles
  49.    (source "Prefs/AHelp")
  50.    (dest dest1)
  51.    (nogauge)
  52.    (infos)
  53. )
  54.  
  55. (set dest2
  56.      (askdir
  57.            (prompt #whereinstall2)
  58.            (help "Destination should be HELP: :-)")
  59.            (default "Help:")
  60.      )
  61. )
  62.  
  63. (working "\n\nPlease wait...")
  64.  
  65. (copyfiles
  66.    (source "AHelp.guide")
  67.    (dest   dest2)
  68.    (nogauge)
  69.    (infos)
  70. )
  71.  
  72. (set #prog desti)
  73.  
  74. (run ("savepath \"%s\"envarc:AHelp.path" #prog))
  75.  
  76. (copyfiles
  77.   (source "envarc:AHelp.path")
  78.   (dest   "env:")
  79.   (nogauge)
  80. )
  81.  
  82. (message (cat "\n\nAHelp was successfully installed!\n\n"
  83. ))
  84.  
  85. (exit (quiet))
  86.